home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 2.2 / View-examples.st < prev    next >
Text File  |  1993-07-24  |  4KB  |  138 lines
  1. "    NAME        View-examples
  2.     AUTHOR        tph@cs.man.ac.uk
  3.     FUNCTION tutorial examples of windows & viewports 
  4.     ST-VERSIONS    2.2
  5.     PREREQUISITES     
  6.     CONFLICTS    
  7.     DISTRIBUTION      world
  8.     VERSION        1.1
  9.     DATE    22 Jan 1989
  10. SUMMARY    View-examples
  11.     contains five examples of using windows and viewports
  12.    when constructing views with multiple subviews.(2.2).TPH
  13. "!
  14. 'From Smalltalk-80, version 2, of April 1, 1983 on 25 May 1987 at 7:32:37 pm'!
  15.  
  16.  
  17.  
  18. !View class methodsFor: 'examples'!
  19.  
  20. example1
  21.     "Create, display and release a single view.  The size and
  22.      position are given by aRect."
  23.     "View example1."
  24.  
  25.     | aRect topView |
  26.     aRect _ Rectangle origin: 100@100 extent: 200@150.
  27.     topView _ self new.
  28.     topView insideColor: Form veryLightGray.
  29.     topView borderColor: Form black.
  30.     topView borderWidth: 2.
  31.     topView window: aRect.
  32.     Transcript cr; cr; show: 'topView window: ', topView window printString.
  33.     Transcript cr; show: 'topView viewport ', topView viewport printString.
  34.  
  35.     topView display.
  36.     topView release.!
  37.  
  38. example2
  39.     "Create, display and release a view with a single subview.
  40.      Size and position are given by aRect, from the user."
  41.     "View example2."
  42.  
  43.     | aRect topView subView |
  44.     aRect _ Rectangle fromUser.
  45.     topView _ self new.
  46.     topView insideColor: Form veryLightGray.
  47.     topView borderColor: Form black.
  48.     topView borderWidth: 2.
  49.     topView window: aRect.
  50.     Transcript cr; cr; show: 'topView window: ', topView window printString.
  51.     Transcript cr; show: 'topView viewport ', topView viewport printString.
  52.  
  53.     subView _ self new.
  54.     subView insideColor: Form white.
  55.     subView borderColor: Form darkGray.
  56.     subView borderWidth: 4.
  57.     subView window: (topView viewport insetBy: 9@12).
  58.     Transcript cr; cr; show: 'subView window: ', subView window printString.
  59.     Transcript cr; show: 'subView viewport: ', subView viewport printString.
  60.  
  61.     topView addSubView: subView.
  62.     topView display.
  63.     topView release.!
  64.  
  65. example3
  66.     "Create, display and release a view with a single subview.
  67.      Size and position are given by aRect, from the user.  The subView's
  68.      window is set to be different from screen co-ordinates."
  69.     "View example3."
  70.  
  71.     | aRect topView subView |
  72.     aRect _ Rectangle fromUserAspectRatio: 4@3.
  73.     topView _ self new.
  74.     topView insideColor: Form veryLightGray.
  75.     topView borderColor: Form black.
  76.     topView borderWidth: 2.
  77.     topView window: aRect.
  78.     Transcript cr; cr; show: 'topView window: ', topView window printString.
  79.     Transcript cr; show: 'topView viewport ', topView viewport printString.
  80.  
  81.     subView _ self new.
  82.     subView insideColor: Form white.
  83.     subView borderColor: Form darkGray.
  84.     subView borderWidth: 4.
  85.     topView
  86.         addSubView: subView
  87.         window: (10@10 extent: 15@15)
  88.         viewport: (topView viewport insetBy: 9@12).
  89.     Transcript cr; cr; show: 'subView window: ', subView window printString.
  90.     Transcript cr; show: 'subView viewport: ', subView viewport printString.
  91.  
  92.     topView display.
  93.     topView release.!
  94.  
  95. example4
  96.     "Create, display and release a view with a single subview; this
  97.      subView also has a single subView. Size and position for the topView
  98.      are given by aRect, from the user.  The first subView's window is set
  99.      to be different from screen co-ordinates and the second subView uses this
  100.      coordinate system to determine it's position within the first subView."
  101.     "View example4."
  102.  
  103.     | aRect topView subView subView2 |
  104.     aRect _ Rectangle fromUserAspectRatio: 4@3.
  105.     topView _ self new.
  106.     topView insideColor: Form veryLightGray.
  107.     topView borderColor: Form black.
  108.     topView borderWidth: 2.
  109.     topView window: aRect.
  110.     Transcript cr; cr; show: 'topView window: ', topView window printString.
  111.     Transcript cr; show: 'topView viewport ', topView viewport printString.
  112.  
  113.     subView _ self new.
  114.     subView insideColor: Form white.
  115.     subView borderColor: Form darkGray.
  116.     subView borderWidth: 4.
  117.     topView
  118.         addSubView: subView
  119.         window: (10@10 extent: 15@15)
  120.         viewport: (topView viewport insetBy: 9@12).
  121.     Transcript cr; cr; show: 'subView window: ', subView window printString.
  122.     Transcript cr; show: 'subView viewport: ', subView viewport printString.
  123.  
  124.     subView2 _ self new.
  125.     subView2 insideColor: Form gray.
  126.     subView2 borderColor: Form black.
  127.     subView2 borderWidth: 2.
  128.     subView
  129.         addSubView: subView2
  130.         window: (0@0 extent: 100@120)
  131.         viewport: (subView window insetBy: (3@1 extent: 1@1)).
  132.     Transcript cr; cr; show: 'subView2 window: ', subView2 window printString.
  133.     Transcript cr; show: 'subView2 viewport: ', subView2 viewport printString.
  134.  
  135.     
  136.     topView display.
  137.     topView release.! !
  138.